home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 4 / United Public Domain Gold 4.iso / fredfish / ff.0013.dms / ff.0013.adf / amgseq1.bas < prev    next >
BASIC Source File  |  1986-02-21  |  425b  |  12 lines
  1. 10    rem read/print seq file/Earl Hamner/Nov 85
  2. 20    scnclr:print"READ SEQUENTIAL FILE"
  3. 30    print:print"Use CTRL-D to start/stop screen listing"
  4. 40    print:input"Name of seq file:";a$
  5. 50    print:input"Send to printer <y/n>";b$
  6. 60    if b$="y" then open "O",#2,"prt:"
  7. 70    open "I",#1,a$
  8. 80    while not eof (1)
  9. 90    line input #1, a$: print a$
  10. 100   if b$="y" then print #2, a$
  11. 110   wend:close #1:close #2
  12.